home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo87.d64 / i boot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  716b  |  24 lines
  1. 1 REM I BOOT.C
  2. 5 IFF=0THENPRINT"[147]":POKE53280,0:POKE53281,0
  3. 13 IFF=0THENPRINT"GET READY ";
  4. 15 IF F=0 THEN F=1:LOAD "SYS 40784.D",8,1
  5. 17 IFF=1THENPRINT"FOR A ";
  6. 20 IF F=1 THEN F=2:LOAD "CC B.D",8,1
  7. 22 IFF=2THENPRINT"SURPRISE!!"
  8. 25 IF F=2 THEN F=3:LOAD"IADOREMY64.D",8,1
  9. 30 POKE 53265,59:POKE 53272,25:POKE 53270,216:SYS 40784
  10. 40 CC$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  11. 50 GET A$:IF A$=""THEN50
  12. 55 IF A$<>""THENPOKE53265,27:POKE53272,21:POKE53270,200:F=2:PRINT"[147]":END
  13. 60 GET C1$:IF C1$="" THEN 60
  14. 70 IF C1$="_" THEN 50
  15. 80 FOR X=1 TO 16:IF C1$<>MID$(CC$,X,1) THEN NEXT:GOTO 50
  16. 82 C1=X-1:IF A$="[134]" OR A$="[135]" THEN 100
  17. 84 GET C2$:IF C2$="" THEN 84
  18. 86 IF C2$="_" THEN 50
  19. 88 FOR X=1 TO 16:IF C2$<>MID$(CC$,X,1) THEN NEXT:GOTO 50
  20. 90 C2=X-1:POKE 251,C1:POKE 252,C1*16:POKE 253,C2:POKE 254,C2*16:SYS 6*4096:GOTO50
  21. 100 IF A$="[134]" THEN POKE 53280,C1:GOTO 50
  22. 110 POKE 53281,C1:GOTO 50
  23. 120 :
  24.